home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00012_Script_Doutone < prev    next >
Text File  |  1997-09-30  |  932b  |  41 lines
  1. -- Doutone
  2.  
  3.  
  4.  
  5.  
  6.  
  7. Property Hue
  8.  
  9. on getPropertyDescriptionList
  10.   if not alphamaniacCheck(the currentSpriteNum) then exit
  11.   
  12.   set pList=[:]
  13.   addProp pList,#Hue,[format:#integer,comment:"Hue (degrees):",Default:0,range:[min:0,max:360]]
  14.   return pList
  15. end
  16.  
  17. on beginSprite me
  18.   set s=the spriteNum of me
  19.   if not alphaManiac(s) then exit
  20.   
  21.   hsb(sprite s,[forceHue:hue])
  22. end
  23.  
  24. on slideHue me, slider, p
  25.   set s=the spriteNum of me
  26.   if not alphaManiac(s) then exit
  27.   
  28.   set Hue=(p*360) / 100
  29.   hsb(sprite s,[forceHue:hue])
  30. end
  31.  
  32. on getBehaviorDescription me
  33.   set msg= "Force your alphamania sprite to a single hue, rendering a doutone effect."
  34.   put return & return after msg
  35.   put "Parameters:" & return & "-----------" & return  after msg
  36.   put "* Hue (degrees):  Set the hue (0 to 360)"  after msg
  37.   put return & "-----------" & return & return  & ">>>" && amTip()  after msg
  38.   return msg
  39. end
  40.  
  41.